dim doc
set doc = application.activedocument
if doc.LayerEnabled(65) then
	Application.ExecuteCommand("Display Colors Setup")
	DisplayColorsSetupDlg.ColorGrid.Cell("Layer_65", "#") = "1"
	DisplayColorsSetupDlg.ColorGrid.ClearSelection
	DisplayColorsSetupDlg.SelectedColor.SetActive (14)
	DisplayColorsSetupDlg.ColorGrid.Cell("Layer_65", "Copper") = "14"
	DisplayColorsSetupDlg.Ok.Click()
end if